perm filename BORDER.LST[MF,DEK] blob
sn#756319 filedate 1984-05-29 generic text, type T, neo UTF8
1) BORDER.MF[MF,DEK] and 2) DEK.MF[BOR,DEK] 5-29-84 22:14 pages 1,1
**** File 1) BORDER.MF[MF,DEK]/1P/13L
1) def horizline expr z = % a horizontal line to the right of point z
1) draw z+(.5pt,0)+noise .. z+(5.5pt,0)+noise; showit enddef;
1) def vertline expr z = % a vertical line above point z
1) draw z+(0,.5pt)+noise .. z+(0,5.5pt)+noise; showit enddef;
1) def moveright = xx:=xx+6pt enddef; % move to next 6pt x 6pt square
1) def CR = xx:=x0; yy:=yy-6pt enddef; % "carriage return"
1) def H = % six horizontal lines
**** File 2) DEK.MF[BOR,DEK]/1P/13L
2) def horizline expr z =
2) draw z+(.5pt,0)+noise .. z+(5.5pt,0)+noise; showit enddef;
2) def vertline expr z =
2) draw z+(0,.5pt)+noise .. z+(0,5.5pt)+noise; showit enddef;
2) def moveright = xx:=xx+6pt enddef;
2) def CR = xx:=x0; yy:=yy-6pt enddef;
2) def H = % six horizontal lines
***************
**** File 1) BORDER.MF[MF,DEK]/1P/40L
1) vardef char.N.E =
**** File 2) DEK.MF[BOR,DEK]/1P/40L
2) vardef char.N.W =
2) xx:=x0:=-3pt; yy:=15pt;
2) H; V; H; V; CR;
2) V;H;C;V; H; CR;
2) H; V; H; V; enddef;
2) test N.W;
2) vardef char.N.E =
***************
**** File 1) BORDER.MF[MF,DEK]/1P/49L
1) vardef char.N.W =
1) xx:=x0:=-3pt; yy:=15pt;
1) H; V; H; V; CR;
1) V;H;C;V; H; CR;
1) H; V; H; V; enddef;
1) test N.W;
1) vardef char.M.E =
**** File 2) DEK.MF[BOR,DEK]/1P/57L
2) vardef char.M.W =
2) xx:=x0:=-3pt; yy:=21pt;
2) V; H; V; CR;
2) H; V; H; CR;
2) V; H; V; CR;
2) H; V; H; enddef;
2) test M.W;
1) BORDER.MF[MF,DEK] and 2) DEK.MF[BOR,DEK] 5-29-84 22:14 pages 1,1
2) vardef char.M.E =
***************
**** File 1) BORDER.MF[MF,DEK]/1P/66L
1) vardef char.M.W =
1) xx:=x0:=-3pt; yy:=21pt;
1) V; H; V; CR;
1) H; V; H; CR;
1) V; H; V; CR;
1) H; V; H; enddef;
1) test M.W;
1) vardef char.S.M =
**** File 2) DEK.MF[BOR,DEK]/1P/75L
2) vardef char.S.M =
***************